home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 3
/
ct-rom iiib.zip
/
ct-rom iiib
/
WINDOWS
/
DIVERSEN
/
WINE02BX
/
FILL.ELC
< prev
next >
Wrap
Text File
|
1993-03-28
|
3KB
|
36 lines
;;; compiled by @win386 on Sat Mar 13 01:38:10 1993
;;; from file c:/src/lucid-19.4/lisp/prim/fill.el
;;; emacs version 19.3 Lucid.
;;; bytecomp version 2.08; 27-aug-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(fset 'set-fill-prefix #[nil "è└yê`)`{ë┬ܽé├ ½à─┼ \"ç─╞!ç" [0 fill-prefix "" nil message "fill-prefix: \"%s\"" "fill-prefix cancelled"] 4 "\
Set the fill-prefix to the current line up to point.
Filling expects lines to start with the fill prefix
and reinserts the fill prefix in each resulting line." nil])
(fset 'fill-region-as-paragraph #[(from to &optional justify-flag) "î }êebê┬├wê`d}ê`dbê¡ë┼Ü?¡â╞!ë½│GY½ä╔╩!êebê╦yêm¼É╠!½à`═ò|ê╦yê¬mebê╠!½äGuê`)bê╬╧├╨#½à╤cê¬t╥d╙╤$êbê╘├wê╥`d╒╤$ê╬╓├╨#½ÿ═öè╫├xêh╪>)½â┘¬ü╦\\═ò|ê¬adbê┌ ê█cêebê═m?¡╥▌T!êm¼£▐├xê═U½ân¬äiY½å▐├wê¬â▀uêα├xê╙cê┌ êm¼Ä½ï┼ܼåcêi!½8m¼5▀yêΓ ê╦yê¬**ç" [from to "\n" nil fill-prefix "" regexp-quote fpre fill-column error "fill-prefix too long for specified width" 1 looking-at 0 re-search-forward "[.?!][])\"']*$" t 32 subst-char-in-region 10 " " 9 " *" " ])\"'" (46 63 33) 2 delete-horizontal-space " " prefixcol move-to-column "^ \n" -1 " " justify-flag justify-current-line] 6 "\
Fill region as one paragraph: break lines to fit fill-column.
Prefix arg means justify too.
From program, pass args FROM, TO and JUSTIFY-FLAG." "r\nP"])
(fset 'fill-paragraph #[(arg) "è└ ên¼ä┴┬!ê`─ ê┼`#*ç" [forward-paragraph newline 1 end backward-paragraph fill-region-as-paragraph arg] 4 "\
Fill paragraph at or after point.
Prefix arg means justify as well." "P"])
(fset 'fill-region #[(from to &optional justify-flag) "î }êebêm?¡á`┬├!ê`┬╞!ê`Y½ë╟`#ê¬âbê*¬\\)ç" [from to forward-paragraph 1 end initial -1 fill-region-as-paragraph justify-flag] 4 "\
Fill each of the paragraphs in the region.
Prefix arg (non-nil third arg, if called from program)
means justify as well." "r\nP"])
(fset 'justify-current-line #[nil "èî└ë├yêGuê┼└wê`└ê `}ê bê╞╟└╚#½ÿ├öè╔└xêh╩>)½â╦¬ü╠\\├ò|ê¬a bê╞═└╚#½ê╬uê╧cê¬qdbêiZGZ╤╥└╚#¡╣\n├V¡┤╙╘!╘\\ë├V½Ü╤╥└╚#¼çdbê╤╥!ê╥└xêSë¬b)╥cê╥└xê\nSë¬H,ç" [nil beg ncols 0 fill-prefix " " re-search-forward " *" t " ])\"'" (46 63 33) 2 1 "[.?!][])\"']*\n" -1 32 fill-column search-backward " " random 3 nmove] 5 "\
Add spaces to line point is in, so it ends at fill-column." nil])
(fset 'fill-individual-paragraphs #[(min max &optional justifyp mailp) "└îè\n}êebê─└wêm?¡╕`┼yê`{è╞ ê`)` ½ì╩╦╠#½à═yê¬s`U½î╬`#êbê*¬@+ç" [nil fill-prefix min max " \n" 0 forward-paragraph start fin mailp re-search-forward "^[ ]*[^ \n]*:" t 1 fill-region-as-paragraph justifyp] 4 "\
Fill each paragraph in region according to its individual fill prefix.
Calling from a program, pass range to fill as first two arguments.
Optional third and fourth arguments JUSTIFY-FLAG and MAIL-FLAG:
JUSTIFY-FLAG to justify paragraphs (prefix arg),
MAIL-FLAG for a mail message, i. e. don't fill header lines." "r\nP"])